<script>on mouseUplock screenset scroll of field "about" to 0go to card 1unlock screen with dissolveEnable Menu "DadaPoet"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text> "To Make A Dadaist Poem"Take a Newspaper.Take some scissors.Choose a newspaper article of the length you want to make your poem.Cut out the article.Next carefully cut out each of the words that make up this article and put them all in a bag.Shake gently.Next take out each cutting one after the other.Copy conscientiously in the order in which they left the bag.The poem will resemble you.And there you are - an infinitely original author of charming sensibility, even though unappreciated by the vulgar herd. Tristan Tzara, 1939(continues...)The point of this stack is to take your very sensible text files and render them senseless. You may be surprised that the results may make even more sense than your orignal!1. Open a Text File. DadaPoet will open any "TEXT" file. You may want to use your word processor to save a file as a text only file first. Reading a file creates a list of words from your original file for DadaPoet to use. After you read a file, DadaPoet writes a DadaPoem. If a file has already been read, you will be asked if you want to clear it from DadaPoem first. Clearing a file does nothing to the original file on disk, rather it clears the word list from DadaPoet. DadaPoet can only store one file at a time.Clicking on the close box will hide the poem window and show the hat picture. Don't click on the hat, and if you do, don't ever do it again!.2. Make a DadaPoem. Based upon the configuration settings (which you may adjust), DadaPoet randomly picks words from the word list and writes lines of random length, grouped in a random number of stanzas made of a random number of lines. This is your poem. These are your words, their random association may reveal what your really meant but couldn't say because you are a slave to bourgeoise reality.Once you have read a file, you may create as many poems from it as you like. Each will replace the last, however.3. Saving/Printing DadaPoems. If you want to edit your poem, you may, although this is cheating. If you want to save your poem, use the "Save DadaPoem as..." command to save the poem as a text file which can be opened by your word processor. You may print a poem from hyperCard by using the "Print Field.." command on the File Menu.DadaPoet is free for anyone for any use for any purpose. Repression of thought is the greatest evil of our time! If you want to send me a small contribution, considering the stage of advanced capitalism we live under, I won't mind. My address is below.DadaPoet was created by Bob Arnold ©1990, 1991, all rights reserved.1906 Broadway St. #20Iowa City, IA 52240(OA RobertA95)I hope you enjoy DadaPoet. Dada Lives!!! Hint: don't click on the hat!!!DadaPoet uses the following external commands and functions:FileName & NewFileName ©1988 by Andrew Gilmartin, Brown University...</text>
</content>
<name>DadaPoet</name>
<script></script>
</card>
card_4882.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>On MouseUpconfigurevisual zoom closego to card 1enable menu "dadapoet"end mouseup</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>355</left>
<top>151</top>
<right>399</right>
<bottom>169</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>TitleWds</name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>356</left>
<top>178</top>
<right>400</right>
<bottom>196</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>wds</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>358</left>
<top>205</top>
<right>402</right>
<bottom>223</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>lines</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>359</left>
<top>231</top>
<right>403</right>
<bottom>249</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>stanzas</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>76</left>
<top>84</top>
<right>134</right>
<bottom>134</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2205</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DadaPoet</name>
<script>on mouseUpvisual dissolvego to stack "dadapoet"end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>146</left>
<top>112</top>
<right>353</right>
<bottom>133</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Install Button on Home Card</name>
<script>on mouseUp--lock screen-- choose button toolselect button "dadapoet"domenu "copy button"push cardgo homedomenu "paste button"unlock screenput "click where you want the button to go"wait until the mouseclickset the loc of button "dadapoet" to the clicklocpop cardchoose browse toolend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>2</id>
<text>5</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>10</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>5</text>
</content>
<content>
<layer>card</layer>
<id>5</id>
<text>10</text>
</content>
<name>Configure</name>
<script>On OpenCardrepeat with x = 1 to 4if card field x is empty thenif x is 1 then put 8 into card field xif x is 2 then put 10 into card field xif x is 3 then put 8 into card field xif x is 4 then put 10 into card field xend ifend repeatselect text of card field 1end OpenCardOn ReturnKEyset hilite of button "OK" to trueset hilite of button "OK" to falsesend mouseup to button "OK"end ReturnKEy</script>
</card>
card_4066.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal eraseif card field "Poem" is not empty thenbeep 1answer "Save this poem?" with "Cancel" or "Erase" or "Save"if it is "Cancel" then exit mouseupif it is "Save" thensend mouseup to bg button "Save Poem"end ifend ifhide mehide card field "filename"hide card field "poem"hide card pictureput empty into card field "poem"Disable Menuitem 4 of menu "Dadapoet"end mouseUp</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>148</left>
<top>33</top>
<right>358</right>
<bottom>50</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>FileName</name>
<script></script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>54</left>
<top>81</top>
<right>460</right>
<bottom>326</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpglobal cardtick,countput the ticks into cardtickadd 1 to countif count = 11 then put 1 into countPut "DaDa Lives!" into line 1 of boxput "This is not a hat!" into line two of boxput "Man Ray was a good dancer!" into line 3 of boxput "Trotsky was seen in the Cafe' Voltaire!" into line 4 of boxput "Property is theft!" into line 5 of boxput "Woman is the laundress of fish!" into line 6 of boxput "Dada, DADA, DADA!" into line 7 of boxput "LambadaDADA!!!" into line 8 of boxput "Terrorism serves the interests of the state!" into line 9 of boxput "Jesse Helms is obscene!" into line 10 of boxput line count of box into whatput empty into card field "hat"put what into line 3 of card field "hat"set the bottom of card field "hat" to item 2 of the clickLocshow card field "hat"wait 80 tickshide card field "hat"end mouseUp</script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>170</left>
<top>142</top>
<right>396</right>
<bottom>233</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Hat</name>
<script></script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>32</left>
<top>52</top>
<right>478</right>
<bottom>331</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Poem</name>
<script></script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>11</left>
<top>250</top>
<right>215</right>
<bottom>301</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Warning</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>16</id>
<text>338</text>
</content>
<content>
<layer>card</layer>
<id>17</id>
<text>Finder Sounds.Read Me</text>
</content>
<content>
<layer>card</layer>
<id>23</id>
<text> Don't click on the Hat!</text>
</content>
<content>
<layer>card</layer>
<id>20</id>
<text>Woman is the laundress of fish!</text>
</content>
<name>DADA</name>
<script>On OpenCardset scroll of card field "poem" to 0if card field "poem" is empty thendisable menuitem 4 of menu "dadapoet"elseenable menuitem 4 of menu "dadapoet"end ifif field "Text" is Empty thendisable menuitem 3 of menu "dadapoet"elseenable Menuitem 3 of menu "dadapoet"end ifend OpenCard</script>
.iso/pc/games/mac/__word_games__/dadapoet/BMAP_5773.png){kind=link}
.iso/pc/games/mac/__word_games__/dadapoet/PATs.png){kind=link}